home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / ASSEMBLE / H055.ZIP / MAC / OPEN.MAC < prev    next >
Text File  |  1987-08-12  |  164b  |  10 lines
  1. OPEN     MACRO DCB?
  2.      AIF   /&LABEL$$=/ .GO
  3. &LABEL$$ EQU   *
  4. .GO     AIF   &1=(.REG
  5.      LA    2,&1
  6.      AGO   .SVC
  7. .REG     AIF   &1=(2).SVC
  8.      LR    2,&1
  9. .SVC     SVC   1
  10.